home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok75 / oberon3.0 / o3demo2.lzh / Definitions / Display.def < prev    next >
Text File  |  1992-08-22  |  4KB  |  109 lines
  1. DEFINITION Display;
  2.  
  3. IMPORT
  4.   li := Lists,
  5.   I := Intuition,
  6.   u := Utility,
  7.   g := Graphics,
  8.   e := Exec;
  9.  
  10. TYPE
  11.   DispEl = RECORD (li.Node) 
  12.     title : e.STRPTR;
  13.     rp : g.RastPortPtr;
  14.     font : g.TextFontPtr;
  15.     width : INTEGER;
  16.     height : INTEGER;
  17.     turtleX : REAL;
  18.     turtleY : REAL;
  19.     turtleDir : REAL;
  20.     pen : BOOLEAN;
  21.     cursor : BOOLEAN;
  22.     curX : INTEGER;
  23.     curY : INTEGER;
  24.     curXAbs : INTEGER;
  25.     curYAbs : INTEGER;
  26.     txtWidth : INTEGER;
  27.     txtHeight : INTEGER;
  28.     gzz : BOOLEAN;
  29.     left,top : INTEGER;
  30.   END;
  31.   Screen = RECORD (DispEl) 
  32.     screen : I.ScreenPtr;
  33.     backdrop : I.WindowPtr;
  34.   END;
  35.   Window = RECORD (DispEl) 
  36.     window : I.WindowPtr;
  37.   END;
  38.   DispElPtr = POINTER TO DispEl;
  39.   ScreenPtr = POINTER TO Screen;
  40.   WindowPtr = POINTER TO Window;
  41.  
  42. CONST
  43.   line = -1;
  44.   dots = 5555H;
  45.   bigdots = 3333H;
  46.   broken = 0F0FH;
  47.  
  48. PROCEDURE OpenScreen(scrn: ScreenPtr; title: ARRAY OF CHAR; x, y, w, h: INTEGER; d: SHORTINT; hires, lace: BOOLEAN): BOOLEAN;
  49. PROCEDURE OpenWindow(win: WindowPtr; title: ARRAY OF CHAR; x, y, w, h: INTEGER; screen: I.ScreenPtr): BOOLEAN;
  50. PROCEDURE OpenWindowTags(win: WindowPtr; gadg: I.GadgetPtr; gzz: BOOLEAN; title: ARRAY OF CHAR; x, y, w, h: INTEGER; screen: I.ScreenPtr; activate: BOOLEAN; tags: sys.ADDRESS): BOOLEAN;
  51. PROCEDURE OpenWindowX(win: WindowPtr; gadg: I.GadgetPtr; gzz: BOOLEAN; title: ARRAY OF CHAR; x, y, w, h: INTEGER; activate: BOOLEAN; screen: I.ScreenPtr): BOOLEAN;
  52. PROCEDURE Close(d: DispElPtr);
  53. PROCEDURE Init(d: DispElPtr);
  54. PROCEDURE SetColors(s: ScreenPtr; VAR cols: ARRAY OF INTEGER);
  55. PROCEDURE SetCol(s: ScreenPtr; num, R, G, B: INTEGER);
  56. PROCEDURE NumToRGB(num: INTEGER; VAR r, g, b: INTEGER);
  57. PROCEDURE RGBToNum(r, g, b: INTEGER): INTEGER;
  58. PROCEDURE FrontPen(d: DispElPtr; pen: SHORTINT);
  59. PROCEDURE BackPen(d: DispElPtr; pen: SHORTINT);
  60. PROCEDURE Jam1(d: DispElPtr);
  61. PROCEDURE Jam2(d: DispElPtr);
  62. PROCEDURE Complement(d: DispElPtr);
  63. PROCEDURE LinePattern(d: DispElPtr; pat: INTEGER);
  64. PROCEDURE Clear(d: DispElPtr);
  65. PROCEDURE Line(d: DispElPtr; x1, y1, x2, y2: INTEGER);
  66. PROCEDURE Dot(d: DispElPtr; x, y: INTEGER);
  67. PROCEDURE DotColor(d: DispElPtr; x, y: INTEGER): INTEGER;
  68. PROCEDURE Rect(d: DispElPtr; x, y, w, h: INTEGER);
  69. PROCEDURE Box(d: DispElPtr; x, y, w, h: INTEGER);
  70. PROCEDURE Move(d: DispElPtr; x, y: INTEGER);
  71. PROCEDURE Draw(d: DispElPtr; x, y: INTEGER);
  72. PROCEDURE Text(d: DispElPtr; x, y: INTEGER; s: ARRAY OF CHAR);
  73. PROCEDURE Circle(d: DispElPtr; x, y, r: INTEGER);
  74. PROCEDURE Ellipse(d: DispElPtr; x, y, rx, ry: INTEGER);
  75. PROCEDURE Font(d: DispElPtr; name: ARRAY OF CHAR; height: INTEGER): BOOLEAN;
  76. PROCEDURE SetTurtlePos(d: DispElPtr; x, y: REAL);
  77. PROCEDURE GetTurtlePos(d: DispElPtr; VAR x, y: REAL);
  78. PROCEDURE SetTurtleDir(d: DispElPtr; dir: REAL);
  79. PROCEDURE GetTurtleDir(d: DispElPtr): REAL;
  80. PROCEDURE SetPen(d: DispElPtr);
  81. PROCEDURE LiftPen(d: DispElPtr);
  82. PROCEDURE Forward(d: DispElPtr; s: REAL);
  83. PROCEDURE TurnLeft(d: DispElPtr; alpha: REAL);
  84. PROCEDURE TurnRight(d: DispElPtr; alpha: REAL);
  85. PROCEDURE SetCursor(d: DispElPtr; on: BOOLEAN): BOOLEAN;
  86. PROCEDURE CursorOn(d: DispElPtr);
  87. PROCEDURE CursorOff(d: DispElPtr);
  88. PROCEDURE Position(d: DispElPtr; x, y: INTEGER);
  89. PROCEDURE Plain(d: DispElPtr);
  90. PROCEDURE UnderLinedOn(d: DispElPtr);
  91. PROCEDURE UnderLinedOff(d: DispElPtr);
  92. PROCEDURE BoldOn(d: DispElPtr);
  93. PROCEDURE BoldOff(d: DispElPtr);
  94. PROCEDURE ItalicOn(d: DispElPtr);
  95. PROCEDURE ItalicOff(d: DispElPtr);
  96. PROCEDURE Home(d: DispElPtr);
  97. PROCEDURE ClrHome(d: DispElPtr);
  98. PROCEDURE ScrollUp(d: DispElPtr);
  99. PROCEDURE ScrollUpN(d: DispElPtr; n: INTEGER);
  100. PROCEDURE ScrollDown(d: DispElPtr);
  101. PROCEDURE ScrollDownN(d: DispElPtr; n: INTEGER);
  102. PROCEDURE InsertLine(d: DispElPtr; n: INTEGER);
  103. PROCEDURE DeleteLine(d: DispElPtr; n: INTEGER);
  104. PROCEDURE WriteLn(d: DispElPtr);
  105. PROCEDURE Write(d: DispElPtr; Str: ARRAY OF CHAR);
  106.  
  107. END Display.
  108.  
  109.